﻿Namespace Messages.Common
    Public Class ShowSimpleMessage
        Inherits MessageBase

        Public Sub New(message As String)
            Me.New(message, "")
        End Sub

        Public Sub New(message As String, caption As String)
            Me.Message = message
            Me.Caption = caption
        End Sub

        Public Property Message As String
        Public Property Caption As String
    End Class
End Namespace